home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 April
/
64er_Magazin_94-04_1994_Markt__Technik_de_Side_A.d64
/
cbmfont->pfox.zs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
16 lines
0 sys58692:poke53280,0:poke53281,0:poke646,5:de=peek(186):print"choose option :
1.load cbmset in memory
2.show cbmset in memory
3.save cbmset as pfoxset
4.directory
5.end program
1 [161]a$:[139]a$[178]""[167]1
2 [139]a$[178]"1"[137]8
3 [139]a$[178]"2"[137]9
4 [139]a$[178]"3"[137]10
5 [139]a$[178]"4"[167][158]3161:[138]
6 [139]a$[178]"5"[167][158]64738
7 [137]1
8 [158]2671:[133]"filename :";f$:[158]2683:[159]15,de,15:[137]11
9 [158]2640:[137]0
10 [133]"give number printfoxset (0-255) :";zs:zs$[178][196](zs):zs$[178][201](zs$,([195](zs$)[171]1)):f$[178]"zs"[170]zs$[170]",p,w":[151]2749,zs:[159]8,de,8,f$:[159]15,de,15:[158]2753:[160]8
11 [132]15,a,b$,c,d:[160]15:[139]a[178]0[167]0
12 [153]"defdisk-error : "a;b$c;d:[153]"print<< syspress spaceprint >>
13 geta$:ifa$=""then13
14 goto0